home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Passing Notes.cpt / Passing Notes / card_15518.txt < prev    next >
Text File  |  1992-04-01  |  13KB  |  497 lines
  1. -- card: 15518 from stack: in
  2. -- bmap block id: 19069
  3. -- flags: 4000
  4. -- background id: 2605
  5. -- name: Evolution
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   cleanUp
  9.   pass mouseUp
  10. end mouseUp
  11.  
  12. on showText
  13.   global lastClick
  14.   cleanScreen
  15.   lock screen
  16.   put script of target into temp
  17.   put line 4 of temp into cd fld id 44
  18.   put line 5 to (number of lines of temp) of temp into cd fld "read1"
  19.   show cd fld "read1"
  20.   show cd btn hider
  21.   put number of target into lastClick
  22.   unlock screen
  23. end showText
  24.  
  25. on sayText
  26.   global lastClick
  27.   cleanScreen
  28.   if MacintalkInstalled() then
  29.     set cursor to 4
  30.     put script of target into temps
  31.     send mouseUp to cd btn (line 4 of temps)
  32.     unlock screen
  33.     sayPhonetic cd fld (line 5 of temps)
  34.     cleanUp
  35.   else
  36.     unlock screen
  37.     cleanUp
  38.     put number of target into lastClick
  39.     answer "MacinTalk must be in your System folder to have the text " &"read to you. " &return &"Please click on the ‚Äú‚Ä¢‚Äù's, not the buttons."
  40.   end if
  41. end sayText
  42.  
  43. on cleanUp
  44.   if visible of cd fld id 4 or visible of cd fld id 44 or visible of cd btn id 39 then
  45.     lock screen
  46.     put empty into cd fld id 44
  47.     hide cd fld "Read1"
  48.     hide cd btn "hider"
  49.     put empty into cd fld "Read1"
  50.     unlock screen
  51.   end if
  52. end cleanUp
  53.  
  54. on openCard
  55.   show cd fld id 44
  56.   pass openCard
  57. end openCard
  58.  
  59. on closeCard
  60.   cleanUp
  61.   pass closeCard
  62. end closeCard
  63.  
  64.  
  65. -- part 4 (field)
  66. -- low flags: 81
  67. -- high flags: 2001
  68. -- rect: left=124 top=139 right=274 bottom=488
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: read1
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   cleanScreen
  80.   cleanUp
  81. end mouseUp
  82.  
  83.  
  84. -- part 7 (field)
  85. -- low flags: 81
  86. -- high flags: 0001
  87. -- rect: left=193 top=91 right=230 bottom=391
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 3
  92. -- text size: 9
  93. -- style flags: 0
  94. -- line height: 12
  95. -- part name: speak1
  96.  
  97.  
  98. -- part 8 (field)
  99. -- low flags: 81
  100. -- high flags: 0001
  101. -- rect: left=92 top=0 right=136 bottom=331
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 3
  106. -- text size: 9
  107. -- style flags: 8192
  108. -- line height: 12
  109. -- part name: speak3
  110.  
  111.  
  112. -- part 9 (field)
  113. -- low flags: 81
  114. -- high flags: 0001
  115. -- rect: left=150 top=0 right=128 bottom=367
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 3
  120. -- text size: 9
  121. -- style flags: 8192
  122. -- line height: 12
  123. -- part name: speak5
  124.  
  125.  
  126. -- part 11 (button)
  127. -- low flags: 00
  128. -- high flags: 2000
  129. -- rect: left=102 top=139 right=163 bottom=127
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 1015 / 1015
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: New Button
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   sayText
  141. end mouseUp
  142. 6
  143. speak1
  144.  
  145.  
  146. -- part 21 (button)
  147. -- low flags: 00
  148. -- high flags: 2000
  149. -- rect: left=102 top=166 right=190 bottom=127
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 1015 / 1015
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: New Button
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   sayText
  161. end mouseUp
  162. 7
  163. speak2
  164.  
  165.  
  166. -- part 12 (button)
  167. -- low flags: 00
  168. -- high flags: 2000
  169. -- rect: left=102 top=193 right=217 bottom=127
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 1015 / 1015
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: New Button
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   sayText
  181. end mouseUp
  182. 8
  183. speak3
  184.  
  185.  
  186. -- part 24 (field)
  187. -- low flags: 81
  188. -- high flags: 0001
  189. -- rect: left=234 top=0 right=134 bottom=512
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 0
  193. -- font id: 3
  194. -- text size: 9
  195. -- style flags: 0
  196. -- line height: 12
  197. -- part name: speak2
  198.  
  199.  
  200. -- part 25 (button)
  201. -- low flags: 00
  202. -- high flags: 2000
  203. -- rect: left=102 top=220 right=244 bottom=127
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 1015 / 1015
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: New Button
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   sayText
  215. end mouseUp
  216. 9
  217. speak4
  218.  
  219.  
  220. -- part 13 (button)
  221. -- low flags: 00
  222. -- high flags: 2000
  223. -- rect: left=102 top=247 right=271 bottom=127
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 1015 / 1015
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: New Button
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   sayText
  235. end mouseUp
  236. 10
  237. speak5
  238.  
  239.  
  240. -- part 29 (field)
  241. -- low flags: 81
  242. -- high flags: 0001
  243. -- rect: left=328 top=2 right=136 bottom=512
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 0
  247. -- font id: 3
  248. -- text size: 9
  249. -- style flags: 0
  250. -- line height: 12
  251. -- part name: speak4
  252.  
  253.  
  254. -- part 31 (field)
  255. -- low flags: 81
  256. -- high flags: 0004
  257. -- rect: left=223 top=21 right=50 bottom=504
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 0
  261. -- font id: 3
  262. -- text size: 9
  263. -- style flags: 0
  264. -- line height: 11
  265. -- part name: note1
  266.  
  267.  
  268. -- part 32 (button)
  269. -- low flags: 00
  270. -- high flags: 8000
  271. -- rect: left=82 top=143 right=159 bottom=98
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: •
  280. ----- HyperTalk script -----
  281. on mouseUp
  282.   showText
  283. end mouseUp
  284. ¬†    what do men live for?"
  285. Don't you know what you are?  Don't you know what
  286. will live on, providing you fullfill your sexual duties,
  287. long after you have rotted away?  Maybe you should
  288. write this down. You live to move DNA from one
  289. generation to the next.  You are a mobile home for
  290. genes. Call yourself a Winnabego - if that makes you
  291. feel any better.
  292.  
  293.  
  294. -- part 33 (button)
  295. -- low flags: 00
  296. -- high flags: 8000
  297. -- rect: left=82 top=170 right=186 bottom=98
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: •
  306. ----- HyperTalk script -----
  307. on mouseUp
  308.   showText
  309. end mouseUp
  310. ¬†    are you serious?"
  311. Allow me to read a statement from your DNA,
  312. ‚ÄúWe made machines that survive in water- you call
  313. them fish, and in trees- you call them monkeys,  and
  314. we made machines that will survive, eventually, on
  315. other planets- you call them human.  But we don't
  316. design and we do not even know we exist. We do not
  317. build life forms to survive, life forms are just what
  318. happens when we survive.‚Äù
  319.  
  320.  
  321. -- part 34 (button)
  322. -- low flags: 00
  323. -- high flags: 8000
  324. -- rect: left=82 top=197 right=213 bottom=98
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 1
  328. -- font id: 0
  329. -- text size: 12
  330. -- style flags: 0
  331. -- line height: 16
  332. -- part name: •
  333. ----- HyperTalk script -----
  334. on mouseUp
  335.   showText
  336. end mouseUp
  337. ¬†    why do we have noses instead of snouts?"
  338. Oh, that is the kind of question I like!  Could you watch
  339. a 3-D movie if you had a humungous snout sticking out
  340. between your little eyes?  No.  The view of your eyes
  341. wouldn't overlap enough for 3-D  vision.  The rest is
  342. obvious.  If apes had big snouts they couldn't see the
  343. distances when swinging from branch to branch.
  344. They were no good at chasing women, and so didn't reproduce.
  345.  
  346.  
  347. -- part 35 (button)
  348. -- low flags: 00
  349. -- high flags: 8000
  350. -- rect: left=82 top=224 right=240 bottom=98
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 1
  354. -- font id: 0
  355. -- text size: 12
  356. -- style flags: 0
  357. -- line height: 16
  358. -- part name: •
  359. ----- HyperTalk script -----
  360. on mouseUp
  361.   showText
  362. end mouseUp
  363. if survival is all, why is there so much self-sacrifice?"
  364. There is always the possibility of a mutant,
  365. degenerate "do-gooder". We make mistakes. And
  366. sometimes we sacrifice older "mobile homes" for
  367. younger ones, but, the golden rule is, scratch an
  368. altruist, and you get a bleeding hypocrite.
  369.  
  370.  
  371. -- part 36 (button)
  372. -- low flags: 00
  373. -- high flags: 8000
  374. -- rect: left=82 top=251 right=267 bottom=98
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: •
  383. ----- HyperTalk script -----
  384. on mouseUp
  385.   showText
  386. end mouseUp
  387. ¬†    why is the world beautiful?"
  388. Get serious, Human.  The world is not beautiful.
  389. Beauty, like all your values, is just a useful
  390. adaptation. You enjoy soft rounded curves like those on
  391. a baby, don't you?  Of course, that is because mother's
  392. who found the curved shapes attractive took better
  393. care of their infants. And those infants survived and
  394. inherited that affinity.
  395.  
  396.  
  397. -- part 37 (button)
  398. -- low flags: 00
  399. -- high flags: 2000
  400. -- rect: left=439 top=42 right=81 bottom=469
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 16692 / 16692
  403. -- text alignment: 1
  404. -- font id: 0
  405. -- text size: 12
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: New Button
  409. ----- HyperTalk script -----
  410. on mouseUp
  411.   popUp "note1"
  412. end mouseUp
  413.  
  414.  
  415. -- part 38 (button)
  416. -- low flags: 00
  417. -- high flags: 2000
  418. -- rect: left=2 top=29 right=64 bottom=40
  419. -- title width / last selected line: 0
  420. -- icon id / first selected line: 9301 / 9301
  421. -- text alignment: 1
  422. -- font id: 0
  423. -- text size: 12
  424. -- style flags: 0
  425. -- line height: 16
  426. -- part name: New Button
  427. ----- HyperTalk script -----
  428. on mouseUp
  429.   wright
  430. end mouseUp
  431. cd id 23800
  432.  
  433.  
  434. -- part 39 (button)
  435. -- low flags: 80
  436. -- high flags: 0000
  437. -- rect: left=79 top=138 right=275 bottom=130
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: hider
  446. ----- HyperTalk script -----
  447. on mouseUp
  448.   global lastClick
  449.   cleanScreen
  450.   lock screen
  451.   cleanUp
  452.   repeat with i = 1 to 10
  453.     if clickLoc() is within rect of cd btn i and i is not lastClick then
  454.       send mouseUp to cd btn i
  455.       exit to hyperCard
  456.     end if
  457.   end repeat
  458. end mouseUp
  459.  
  460.  
  461. -- part 44 (field)
  462. -- low flags: 01
  463. -- high flags: 0000
  464. -- rect: left=135 top=122 right=140 bottom=488
  465. -- title width / last selected line: 0
  466. -- icon id / first selected line: 0 / 0
  467. -- text alignment: 0
  468. -- font id: 3
  469. -- text size: 12
  470. -- style flags: 0
  471. -- line height: 16
  472. -- part name: DoNotPop
  473.  
  474.  
  475. -- part contents for card part 7
  476. ----- text -----
  477. DOW4NT YUW NOW1 WHAHT YUW AA3R.  DOW4NT YUW NOW1 WHAHT WIH1L LIH5V AAN, PROHVAY4DIHNX YUW FUHLFIH1L YOHR SEH4KSHYUWUL DUW8TIYZ, LAO1NX AEFTER YUW /HAEV RAA2TIXD AXWEY5.  MEY2B YUW SHUH1D RAY7T DHIH1S DAW7N. YUW3 LIH5V TUW MUW5V DIY EH1N EY5 FRAHM WAH5N JEH1NER1EY5SHUN TUX DHAX NEH1KST.  YUW AA7R AH (MOW7 BAH3L  /HOW5M) FOHR JIY7NZ. KAO4L YOHRSEH1LF AH WIH1NAEBEY9GOW1- IHF DHAET MEY4KS YUW FIY4L EH4NIY BEH1TER. #
  478.  
  479. -- part contents for card part 8
  480. ----- text -----
  481. OW9, DHAET IHZ DHAX KAY5ND AHV KWEH1SCHUN  AY4  LAY7K.  KUH5D YUW WAA1TCH AH (THRIY4 DIY MUW4VIY) IHF  YUW /HAED AH (/HYUW1MAH9NXGAXS) SNAW5T STIH6KIHNX AWT  BEH1TWIY4N YOHR (LIH4TUL AY4Z).  NOW1. DHAX VYUW5 AHV YOHR AY4Z WUH3DNT  OW5VERLAEP EH1NAH5F FOHR  THRIY4  DIY4   VIHZHUN.  DHAX REH1ST IHZ AA1BVIH1AXS.   IHF EY2PS /HAED (BIH1G SNAW5TS) DHEY1 KUH3DNT SIY2 DHAX DIH4STAENSIHZ WEH1N SWIH1NXGIHNX FRAHM BRAE2NCH TUX BRAE8NCH.  DHEY1 WER NOW1 GUH5D AET CHEY2ZIHNX WIH9MEHN, AEND SOW DIH1DNT REH1PROW5DUW4S .  #
  482.  
  483. -- part contents for card part 9
  484. ----- text -----
  485. GEH5T SIY4RIYAX2S.  /HYUW1MAHN .  DHAX WERLD IHZ NAA1T BIY9YUW9TIH1FUHL.     BIY5YUW1TIY, LAY5K AOL YOHR VAEL YUWS, IHZ JAH5ST AH YUW5ZFUHL AEDAEEH1P TEY5SHUN.    YUW EH1NJOY4 (SAO1FT RAW1NDIHD KER1VZ) LAY5K DHOH1Z AAN AH BEY5BIY, DOW4NT YUW.   AO4FKOH1RS, DHAET IHZ BIHKAH1Z MAH5DHERZ /HUW FAW5ND DHAX (KER1VD SHEY2PS) AH3TRAE2KTIH13V TUH5K BEH1TER KEH4R  AHV DHEH2R IH4NFAENTS. AEND DHOH1Z IH4NFAENTS SER1VAY4VD AEND IH4N/HEH4RIHTIXD DHAET AEFIHNIHTIY. #
  486.  
  487. -- part contents for card part 24
  488. ----- text -----
  489. AOLAW1 MIY TUX RIY4D AH STEY2T MEH1NT FRAHM YOHR DIY EH1N EY5. KWOW5T. WIY4 MEY2D MAHSHIY5NZ DHAET SER1VAY2V IHN WAA3TER.  YUW3 KAOL DHEH5M FIH1SH, AEND IHN TRIY4Z.  YUW3 KAOL DHEH5M MAH3NXKIY1Z, AEND WIY4 MEY2D MAHSHIY5NZ DHAET WIH1L SER1VAY2V, IYVEHNCHUWULIY, AAN AH5DHER PLAENEH1TS. YUW4 KAOL DHEH5M /HYUW1MAEN.  BAHT WIY DOW4NT DIH1ZAY4N, AEND WIY DUW NAA3T IYVEHN NOW1 WIY EH4KSIH1ST.  WIY4 DUW NAA1T BIH4LD LAY5F FOHRMZ TUX SER2VAY3V. LAY3F FOHRMZ AAR JAH5ST WHAHT /HAEPEHNZ, WEH5N WIY3 SER2VAY3V.  EH1ND AHV KWOW5T #
  490.  
  491. -- part contents for card part 29
  492. ----- text -----
  493. DHEH1R IHZ AOLWEY5Z DHAX PAA1SIHBIHLIHTIY AHV AH MYUW1TAHNT, (DIH1JEH1NER1EY2T DUWGUH5DER). WIY MEY4K MIH1STEY2KS. AEND SAHMTAY1MZ WIY SAEKRIHFAYS  OH2LDER (MOW7 BAH3L  /HOW5MZ) FOHR YAH2NXER WAH5NZ, BAHT, DHAX GOH5LDAHN RUW1L IHZ , SKRAE5TCH AEN AOLTRUW2IH1ST, AEND YUW GEH5T AH BLIY4DIHNX /HIH9PAA1KRIH4T. #
  494.  
  495. -- part contents for card part 31
  496. ----- text -----
  497. Answers are based on the writings of sociobiologists. Sociobiologists use evolution to explain human behavior.